package com.yanqu.road.utils.classutil;

import org.apache.logging.log4j.LogManager;
import org.apache.logging.log4j.Logger;

import java.io.File;
import java.io.FileFilter;
import java.io.IOException;
import java.io.UnsupportedEncodingException;
import java.lang.reflect.*;
import java.net.JarURLConnection;
import java.net.URL;
import java.net.URLClassLoader;
import java.net.URLDecoder;
import java.util.ArrayList;
import java.util.Enumeration;
import java.util.LinkedHashSet;
import java.util.Set;
import java.util.jar.JarEntry;
import java.util.jar.JarFile;

public class ClassHelper {
	private static Logger logger = LogManager.getLogger(ClassHelper.class.getName());

	/**
	 * 从包package中获取所有的Class
	 * 
	 * @param pack
	 * @return
	 */
	public static Set<Class<?>> getClasses(Package pack) {
		// 第一个class类的集合
		Set<Class<?>> classes = new LinkedHashSet<Class<?>>();
		// 是否循环迭代
		boolean recursive = true;
		// 获取包的名字 并进行替换
		String packageName = pack.getName();
		String packageDirName = packageName.replace('.', '/');
		// 定义一个枚举的集合 并进行循环来处理这个目录下的things
		Enumeration<URL> dirs;
		try {
			dirs = Thread.currentThread().getContextClassLoader().getResources(packageDirName);
			// 循环迭代下去
			while (dirs.hasMoreElements()) {
				// 获取下一个元素
				URL url = dirs.nextElement();
				// 得到协议的名称
				String protocol = url.getProtocol();
				// 如果是以文件的形式保存在服务器上
				if ("file".equals(protocol)) {
					// 获取包的物理路径
					String filePath = URLDecoder.decode(url.getFile(), "UTF-8");
					// 以文件的方式扫描整个包下的文件 并添加到集合中
					findAndAddClassesInPackageByFile(packageName, filePath, recursive, classes);
				} else if ("jar".equals(protocol)) {
					// 如果是jar包文件
					// 定义一个JarFile
					JarFile jar;
					try {
						// 获取jar
						jar = ((JarURLConnection) url.openConnection()).getJarFile();
						// 从此jar包 得到一个枚举类
						Enumeration<JarEntry> entries = jar.entries();
						// 同样的进行循环迭代
						while (entries.hasMoreElements()) {
							// 获取jar里的一个实体 可以是目录 和一些jar包里的其他文件 如META-INF等文件
							JarEntry entry = entries.nextElement();
							String name = entry.getName();
							// 如果是以/开头的
							if (name.charAt(0) == '/') {
								// 获取后面的字符串
								name = name.substring(1);
							}
							// 如果前半部分和定义的包名相同
							if (name.startsWith(packageDirName)) {
								int idx = name.lastIndexOf('/');
								// 如果以"/"结尾 是一个包
								if (idx != -1) {
									// 获取包名 把"/"替换成"."
									packageName = name.substring(0, idx).replace('/', '.');
								}
								// 如果可以迭代下去 并且是一个包
								if ((idx != -1) || recursive) {
									// 如果是一个.class文件 而且不是目录
									if (name.endsWith(".class") && !entry.isDirectory()) {
										// 去掉后面的".class" 获取真正的类名
										String className = name.substring(packageName.length() + 1, name.length() - 6);
										try {
											// 添加到classes
											classes.add(Class.forName(packageName + '.' + className));
										} catch (ClassNotFoundException e) {
											logger.error("异常错误",e);
										}
									}
								}
							}
						}
					} catch (IOException e) {
						logger.error("异常错误",e);
					}
				}
			}
		} catch (IOException e) {
			logger.error("异常错误",e);
		}
		int count = classes.size();
		System.out.println("class size:" + count);
		return classes;
	}

	/**
	 * 以文件的形式来获取包下的所有Class
	 * 
	 * @param packageName
	 * @param packagePath
	 * @param recursive
	 * @param classes
	 */
	public static void findAndAddClassesInPackageByFile(String packageName, String packagePath, final boolean recursive, Set<Class<?>> classes) {
		// 获取此包的目录 建立一个File
		File dir = new File(packagePath);
		// 如果不存在或者 也不是目录就直接返回
		if (!dir.exists() || !dir.isDirectory()) {
			return;
		}
		// 如果存在 就获取包下的所有文件 包括目录
		File[] dirfiles = dir.listFiles(new FileFilter() {
			// 自定义过滤规则 如果可以循环(包含子目录) 或则是以.class结尾的文件(编译好的java类文件)
			public boolean accept(File file) {
				return (recursive && file.isDirectory()) || (file.getName().endsWith(".class"));
			}
		});

		// 循环所有文件

		for (File file : dirfiles) {
			// 如果是目录 则继续扫描
			if (file.isDirectory()) {
				findAndAddClassesInPackageByFile(packageName + "." + file.getName(), file.getAbsolutePath(), recursive, classes);
			} else {
				// 如果是java类文件 去掉后面的.class 只留下类名
				String className = file.getName().substring(0, file.getName().length() - 6);

				try {
					// 添加到集合中去
					classes.add(Class.forName(packageName + '.' + className));

				} catch (ClassNotFoundException e) {
					logger.error("异常错误",e);
				}
			}
		}
	}

	public static ArrayList<String> getClassNames(String packageNames, ClassLoader loader) {
		ArrayList<String> fileNames = new ArrayList<>();
		String[] pcgs = packageNames.split(",");
		for (int i = 0; i < pcgs.length; i++) {
			String packageName = pcgs[i];
			String packagePath = packageName.replace(".", "/");
			packageName = packageName + ".";
			URL url = loader.getResource(packagePath);
			if (url != null) {
				String type = url.getProtocol();
				if (type.equals("file")) {
					getClassNameByFile(url.getPath(), fileNames, packageName);
				} else if (type.equals("jar")) {
					getClassNameByJar(url.getPath(), fileNames, packageName);
				}
			} else {
				getClassNameByJars(((URLClassLoader) loader).getURLs(), packagePath, fileNames, packageName);
			}
		}
		return fileNames;
	}

	private static void getClassNameByFile(String filePath, ArrayList<String> myClassName, String packageName) {
		File file = new File(filePath);
		File[] childFiles = file.listFiles();
		for (File childFile : childFiles) {
			if (childFile.isDirectory()) {
//				if (childPackage) {
				getClassNameByFile(childFile.getPath(), myClassName, packageName+childFile.getName()+".");
			} else {
				String name = childFile.getName();
				if (name.endsWith(".class")) {
					myClassName.add(packageName+name.substring(0, name.length()-6));
				}
			}
		}
	}

	private static void getClassNameByJar(String jarPath, ArrayList<String> myClassName, String packageName) {
		String[] jarInfo = jarPath.split("!");
		String jarFilePath = jarInfo[0].substring(jarInfo[0].indexOf("/"));
		String packagePath = jarInfo[1].substring(1);
		try {
			jarFilePath = URLDecoder.decode(jarFilePath, "UTF-8");
		} catch (UnsupportedEncodingException e) {
			logger.error("url解码失败", e);
		}
		try (JarFile jarFile = new JarFile(jarFilePath)) {
			Enumeration<JarEntry> entrys = jarFile.entries();
			while (entrys.hasMoreElements()) {
				JarEntry jarEntry = entrys.nextElement();
				String entryName = jarEntry.getName();
				if (entryName.startsWith(packagePath) && entryName.endsWith(".class")) {
//					if (childPackage) {
					entryName = entryName.replace("/", ".").substring(0, entryName.length()-6);
					myClassName.add(entryName);
				/*	} else {
						int index = entryName.lastIndexOf("/");
						String myPackagePath;
						if (index != -1) {
							myPackagePath = entryName.substring(0, index);
						} else {
							myPackagePath = entryName;
						}
						if (myPackagePath.equals(packagePath)) {
							entryName = entryName.replace("/", ".").substring(0, entryName.lastIndexOf("."));
							myClassName.add(entryName);
						}
					}*/
				}
			}
		} catch (Exception e) {
			logger.error("加载指定包所有类异常", e);
		}
	}

	private static void getClassNameByJars(URL[] urls, String packagePath, ArrayList<String> myClassName,
										   String packageName) {
		if (urls != null) {
			for (int i = 0; i < urls.length; i++) {
				URL url = urls[i];
				String urlPath = url.getPath();
				// 不必搜索classes文件夹
				if (urlPath.endsWith("classes/")) {
					continue;
				}
				String jarPath = urlPath + "!/" + packagePath;
				getClassNameByJar(jarPath, myClassName, packageName);
			}
		}
	}

	public static Method findGetter(Class<?> clazz, Field field) {
		try {
			if (field.getType() == boolean.class) {
				String getterName = "is" + capitalize(field.getName());
				return clazz.getMethod(getterName);
			} else {
				String getterName = "get" + capitalize(field.getName());
				return clazz.getMethod(getterName);
			}
		} catch (NoSuchMethodException e) {
			return null;
		}
	}

	public static Method findSetter(Class<?> clazz, Field field) {
		try {
			String setterName = "set" + capitalize(field.getName());
			Class<?> fieldType = field.getType();
			return clazz.getMethod(setterName, fieldType);
		} catch (NoSuchMethodException e) {
			return null;
		}
	}

	private static String capitalize(String str) {
		if (str.isEmpty()) {
			return str;
		}
		return str.substring(0, 1).toUpperCase() + str.substring(1);
	}

	public static Class<?> getClassFromType(Type type, int idx) {
		if (type instanceof ParameterizedType) {
			ParameterizedType parameterizedType = (ParameterizedType) type;
			Type[] actualTypeArguments = parameterizedType.getActualTypeArguments();
			if (idx >= 0 && idx < actualTypeArguments.length) {
				return getRawClass(actualTypeArguments[idx]);
			}
		} else if (type instanceof Class<?>) {
			return (Class<?>) type;
		}
		return null;
	}

	/**
	 * 递归获取实际的 Class 对象。
	 *
	 * @param type 输入的 Type 对象
	 * @return 提取的实际 Class 对象，如果没有找到则返回 null
	 */
	private static Class<?> getRawClass(Type type) {
		if (type instanceof Class<?>) {
			return (Class<?>) type;
		} else if (type instanceof ParameterizedType) {
			ParameterizedType parameterizedType = (ParameterizedType) type;
			Type rawType = parameterizedType.getRawType();
			return getRawClass(rawType);
		} else if (type instanceof GenericArrayType) {
			GenericArrayType arrayType = (GenericArrayType) type;
			Type componentType = arrayType.getGenericComponentType();
			Class<?> componentClass = getRawClass(componentType);
			if (componentClass != null) {
				return Array.newInstance(componentClass, 0).getClass();
			}
		} else if (type instanceof WildcardType) {
			WildcardType wildcardType = (WildcardType) type;
			Type[] upperBounds = wildcardType.getUpperBounds();
			if (upperBounds.length > 0) {
				return getRawClass(upperBounds[0]);
			}
		}
		return null;
	}
}
